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TITLE ; Anti-log Printout Subroutine 

AUTHOR : Richard A. Lamm 
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FUNCTION: 



INPUT: 



Given log N (base 2, e or 10), print out N provided 

2" 16 ^H2 17 . If N is not in these limits, print x and 
tab. 

One word in the accumulator @ 7. 



OUTPUT: 



One word printed at the appropriate q(lf? plus the 
characteristic of log 9 N). N is stored in (Lo + 2?) 



10 



with its q in the sector portion of (Lo + 2\\) 



10* 



CALLING SEQUENCE: 



ACCURACY: 



Location 


Order 


Address 


<*-l 


B 


L(log N) 


<*. 


R 


(Lo + 2) 


o< +1 


U 


Lo 0000 


c* +2 


z 


K K=0 if log is base 2 

0001 " " " " e 

0002 " " " " 10 



o< +3 



etc. 



o<. -1 need not be a B order. Any order that leaves log N 
in the accumulator is permissible. 

k or 5 significant digits. 



STORAGE: 



52 locations of instruction, constants and temporary- 
storage . 



SUBROUTINES REQUIRED: 



NOTE: 



Exponential (17.0) with Lo at 2300]_o- 

Data Output 2 (12.1) with Lo at 1300 10 . 

K 28 

If 2~- ? < N< 2 u for all N to be computed, greater accuracy 

and range may be obtained by changing: 

COlIi to UC015 

0023 to XZ0023 

0C25 to xZCOOU 

00U2 to xZGlOJi 
2 
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METHOD ; The logarithm base K is converted to base 2 by dividing 
log K N by log 2. The resulting log N is subdivided by 

extraction into its characteristic, C and its mantissa, 
M. The mantissa is "antilogged" by the exponential sub- 
routine and held @ 15. Rather than shift this result 
C binal bits to the left (right if C is negative) the 
result is retained at l£, but printed out at 1$ plus C. 
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Initiali 

1. log K 

2. Exit 



ize: \ 





4 




log K N 

logpN = = CM * 

*■ log K 2 




V 






J* 

2 @ 15 





* C = Characteristic 
M = Mantissa 




Yes 



Initialize 
Data Output 
'2 call. seq. 
Z0115 + C 



I 



Print: 2 M 

@ 15 + c 

i.e. 2CM 
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TRACK 

00 


PROGRAM INPUT COOES 


0. 

« 


LOCATION 


INSTRUCTION 


0. 


h 


CONTENTS 
OF ADDRESS 


NOTES 


OPERATION ADDRESS 


1 


1 
















1 


X 








_0_, 


.0 ,0 


. , . c , °, °.3 ,9 






Store log K N 








|0 ,1 


, , ,B 0, 0,U p. 




log ? 2 ( 


5 1 








,0 ,2 


, , .a,[9< t 2 . ] 














,0 ,3 


i i i Y °i ° i ° i 8 




X 












,0 ,4 


i i , B 0, , ,2 




c* +2 










,0 ,5 


. i , A 0, , 1+ ,U 




1@ 29 










,0 ,6 


i , il. Q 0.3 ,6 














,0 ,7 


i i i B , °i °|3 ,9 




X 


log K N© 7 










|0 ,8 


. i .D, [, , , ] 




log K 2@ 1 










,0 ,9 


, , ,H. q 0,3,9 








Log2N@ 6 


— >- 








,1 ,0 


. . , E , °. 0,1* ,9 




Fraction ea tract mask 








,1,1 


i i i d, q o,5 ,o 




X 


l @ 5 










|1 |2 


i , X, R 2, 3, ,9 




r EbfTJonentis 


1 Ro\vtin° 








|1 |3 


, , X,U 2, 3,0,0 




J^ 1 










il l 4 


i i |M. Q 0,5,1 




1 @ 11 










|1 i 5 


, , , c, q o, U ,0 




X 


2Frac(log I 


} @ 15 








,1,6 


1 , l B l °l °, 3 ,9 




log ? N @ 6 










|1 |7 


E h 8 
1 1 1 1 1 1 1 




WQ000000 


Integral log N Mask 








,1,8 


m' o k 3 

1 1 1 1 1 1 1 




1 @ 23 










|1 |9 


i T ! 9 °i 2 1 7 




X 












,2 ,0 


, i , s. q 0,2,3 




Z0017 










i |2 ,1 


, i i t ( q 0,3,7 




—*• Number < 2 1 ' — * : Print 








|2 |2 


i , *, p i 3 9, o,o 






|Pr1n+ "*" 








|2 |3 


, , 2,z, q 0,1,7 




X 












,2 , 4 


, i % p , % K °i° 






}Tab 








|2 |5 


• i ? Zi 9 en 1,5 






) 








|2 i 6 


, i , u , 9 °i 3 , 6 




- J r 


Exit 








|2 |7 


, , , A , 9 °, 2 ,S 




X 


Z0015 










|2 i 8 


T 2 2 
i i i | i , i 




— * Number 


<2" ±b -►Print "X" 








|2 |9 


s' 2 5 














,3 | 


A k 2 
i i i 1 i i i 




zoii5 










|3 i 1 


y' 3 5 
i , i I i i i 




X 
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PROBLEM: 

Antilog Printout 


TRAC, bo 


PROGRAM INPUT COOES 




h 


LOCATION 


INSTRUCTION £ 


CONTENTS 
OF ADDRESS 


NOTES 


OPERATION | ADDRESS J 


1 


1 
















X 








Oj 


0,3 ,2 


i i i B | °i 0,1* p ' 












,3 ,3 


, , X,R 1, 3|0 £ ' 


\ Data Output 


2 








|3 |4 


, , x,u i 1, 3,0 / 


) 










|3 |5 


i . .z ,[,,,] ' 


:z 


(0115 


+ Characteristic 








,3 ,6 


, , i u ' If* T 3 i ] ' 


Exit l of lo § 


2 n) 








|3 ,7 


i i , A . 0, , 2 ,3 ' 


Z0017 










,3 ,8 


i i i U | 0, , 3 P ' 












,3 ,9 


[,,,,.!,]' 


/\| Storage of 


Log N 








I 4 1 ° 


[,.,,,..]' 


Storage of 


N @ 15 + Charact. base t 








\* l' 


i i , z, q o,U,5 ' 




Loc (logp2) 








,4 ,2 


, , x, z. o i,i 5 ' 












i< .3 


i , x, z, q i,o ,o ' 


~x 


1 @ 22 










|4 | 4 


, , x, z oooi 


1 @ 25 




, ,o p 9 o, o ,o ,7 


1 




|4 i 5 


U, o,o p 9 o, o,o 


log 2 2 = 1@ 


1 








,4 | 6 


2, J ,5 J . 8, 6,0,8 


lo go 2 @ 1 










|4 ,7 


1,3,1* h ! 3, 3,5,1* 


r S 


log 10 2 @ 


1 








,4 | 8 


w,q,o p . q 0,0,0 


Log2N 


Characteristic Mask 


- 






|4 ,9 


1 W W W W W Q 


c 


Mantissa Mask 


- 






,5 ,0 


,U,0 ,0 , 0,0,0 


f l © 5 










|5 i 1 


, ,1 p q o, o,o 


iX 


1® 11 




. , o ,o p , 0, , ,0 


1 




|5 ,2 














l |5 i 3 














|5 | 4 














|5 | 5 




lX 












|5 i 6 














|5 i 7 














;5 i 8 












- 


l |5 i 9 




^ 












1 |6 i 














i 16 , 1 














1 ,6,2 














, ,6,3 




lX 
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